sub samcoupejmode(tmde as ubyte):
  asm
    ld a,(ix+5)
    call $015A
    end asm
  end sub

'$015A - JMODE - a= screen mode    <----- !!!!!
